home *** CD-ROM | disk | FTP | other *** search
/ Publisher Platinum / Publisher Platinum.iso / clipart / utils / hgcib202 / hgctest.bas < prev    next >
Encoding:
BASIC Source File  |  1993-04-30  |  896 b   |  35 lines
  1. 100    ' Emulation Test Program Version 2.01
  2. 102    '
  3. 105    DIM VERT%(120)
  4. 110    INPUT "Test 200x320 or 200x640 (1 or 2)";RES%
  5. 120    IF RES% <> 1 AND RES% <> 2 THEN CLS: GOTO 110 ELSE SCREEN RES%:CLS
  6. 130    ASPECT = RES% * .5
  7. 140    RES% = RES% * 320
  8. 150    KEY OFF
  9. 160    CLS
  10. 170    INPUT "enter radius (10-100)";R
  11. 180    INPUT "enter number of vertices (3-50)";V
  12. 190    CLS
  13. 200    X0=(RES%/2)+R*2*ASPECT:Y0=100
  14. 210    PSET(X0,Y0)
  15. 220    THETA=6.28319/V:N=V-1
  16. 230    FOR I=1 TO N
  17. 240        VERT%(2*I-1)=R*2*ASPECT*COS(THETA*I)+(RES%/2)
  18. 250        VERT%(2*I)=R*SIN(THETA*I)+100
  19. 260        PSET(VERT%(2*I-1),VERT%(2*I)),1
  20. 270    NEXT I
  21. 280    N0=N
  22. 290    FOR J=1 TO N
  23. 300        FOR I= 1 TO N0
  24. 310            XN=VERT%(2*I-1):YN=VERT%(2*I)
  25. 320            LINE(X0,Y0)-(XN,YN)
  26. 330        NEXT I
  27. 340        X0=XN:Y0=YN:N0=N0-1
  28. 350    NEXT J
  29. 360    LOCATE 1,1
  30. 370    INPUT "Try another (Y/N)"; A$
  31. 380    CLS
  32. 390    SCREEN 0:WIDTH 80
  33. 400    IF A$="Y" OR A$="y" GOTO 110
  34. 410    END
  35.